o FILE OPENS AND CLOSES SHOULD BE DONE ANSI-STANDARD AND VERY STRANGE
   HOW SYSPLOTS IS CALLED WITH NUMBER/CHARACTER/INTEGER MIX OF FILENAMES

 THIS IS THE CALCOMP LIBRARY ROUTINES AS MODIFIED UNDER AN IWR TO
 AESD TO RUN ON THE CRAY. THESE ROUTINES ARE INTENDED TO BE LINKED
 WITH THE PRIMITIVES IN ORDER TO GENERATE A TEMPLATE METAFILE(PDF).

 THESE ROUTINES CONTAIN LOCAL MODIFICATIONS THAT WERE MADE LONG AGO
 ON THE 7600 VERSION. ALSO, THE HIGH LEVEL ROUTINES WERE MOVED FROM THE 7600.

                REVISION HISTORY

 INITIAL INSTALLATION        3/12/84      RLI
 MODIFIED AND PLACED ON THE CRAY XMP 7/89 -JSU

   ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
   +                                                                  +
   + PROGRAM NAME:  Calcomp Subroutine Library                        +
   +                                                                  +
   +                                                                  +
   + PROGRAM NUMBER: IAS 9807                                         +
   +                                                                  +
   + PURPOSE: Produce a Pseudo Device FILE "PDF" which can be         +
   +          processed by device drivers for a wide assortment of    +
   +          graphic devices.  The PDF produced is in the form of    +
   +          a TEMPLATE metafile.                                    +
   +                                                                  +
   +                                                                  +
   + REVISION    DATE                                                 +
   +    A      10/25/93  Version A (unmodified) of CRAY version ?     +
   +    B      10/25/93  ORIGINAL SUN workstation RELEASE             +
   +                           converted from SUN version A           +
   +                                                                  +
   + COPYRIGHT (C) WESTINGHOUSE ELECTRIC CORPORATION, 1992            +
   +                                                                  +
   +   W E S T I N G H O U S E    P R O P R I E T A R Y               +
   +                                                                  +
   ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

  =====================================================================
   Version B, Change Number IAS9807.1  10/25/93  C. Amin
  =====================================================================

   Converted from CRAY source code for SUN Workstation Application

   1. In subroutines SYPLTS, FREND, WPLTOW and WBITRF modified the
      variable KCPW (number of characters per computer word) from
      8 to 4.
   2. In blockdata routine CCPBDB modified string delimeter from
      single quote to double quote and added additional back slash
      to data statement used to store character symbols.  These
      changes were made to satisfy SUN compiler complaints.
   3. In subroutine WBITRF modifications were made in order to be
      compatible with the machine dependent bit manipulation
      routines which were added.
   4. Added bit manipulation routines to replace CRAY routines of the
      same name.  SUN specific routines are used.
       FUNCTION SHIFT  - performs bit left shift.
       FUNCTION SHIFTR - performs bit right shift.
       FUNCTION COMPL  - performs bit compliment operstion.
       FUNCTION MASK   - performs bit masking operation.
   5. Added subroutine REMARK to replace CRAY specific routine of the
      same name.  REMARK writes a message to standard error file.
   6. In subroutine PLTLIN declared OR a 4-byte integer.  OR is a bit
      manipulation routine.
   7. In subroutine WORFIL made modifications to create a unique
      Pusedo Device File name.  The file name created is of the form
      pdf.command.PID where command is the name of the file being
      executed and PID is its process ID number.
   8. In subroutine WMSG made minor changes to message text.
   9. Modified subroutine FREND to optionally initialize for the next
      plot frame.  Added formal parameter NEXT, if NEXT is 0 (zero)
      the next frame is not intialized else the next frame is
      initialized.  Previously the next frame was always initialized
      which caused the last frame to be blank.
  10. Modified subroutine 'C_PLOT' to include the formal parameter NEXT
      in the FREND references.  FREND is called with NEXT set to 0
      when terminating plotting and set to 1 when not terminating.
  =====================================================================